home *** CD-ROM | disk | FTP | other *** search
/ The Best of MacTutor - S…e Code for Volumes 1 to 5 / The Best of MacTutor - Source Code for Volume 1-5 (Wayzata Technology)(6031)(1990).bin / Source Code / #18 (Mar 87) / Fortran Runge-Kutta / Byte Benchmark Listing < prev    next >
Text File  |  1987-01-29  |  2KB  |  54 lines
  1.  
  2. Microsoft BASIC Compiler Listing     01/29/87                       Page 1
  3.  
  4.               Source File: Byte Benchmark.text             
  5.  
  6.  
  7.        Program Unit: MAIN             Entry: 00000022
  8.  
  9. 00001  10 PRINT TIME$
  10. 00002  20 a=2.71828
  11. 00003  30 b=3.14159
  12. 00004  40 c=1
  13. 00005  50 FOR i=1 TO 5000
  14. 00006  60 c=c*a
  15. 00007  70 c=c*b
  16. 00008  80 c=c/a
  17. 00009  90 c=c/b
  18. 00010  100 NEXT i
  19. 00011  110 PRINT TIME$
  20. 00012  120 END
  21.  
  22. Microsoft BASIC Compiler Listing     01/29/87                       Page 2
  23.  
  24.               Source File: Byte Benchmark.text             
  25.  
  26.  
  27.        Symbol and Label Tables for: MAIN 
  28.  
  29.  
  30. SYMBOL                            TYPE            STORAGE        ADDRESS 
  31.  
  32. A!                                SINGLE          LOCAL          00000008
  33. B!                                SINGLE          LOCAL          0000000C
  34. C!                                SINGLE          LOCAL          00000010
  35. I!                                SINGLE          LOCAL          00000014
  36.  
  37.  
  38.         STORAGE         MEMORY
  39.  
  40.         LOCAL               24
  41.  
  42.  
  43. LABEL                     ADDRESS   LABEL                     ADDRESS
  44.  
  45. 10                        0000007A  20                        000000B2
  46. 30                        000000BA  40                        000000C2
  47. 50                        000000CA  60                        000000F8
  48. 70                        00000108  80                        00000118
  49. 90                        00000128  100                       00000138
  50. 110                       0000015E  120                       00000196
  51.                                                                         
  52.  
  53. *****  0 errors
  54.